-- card: 4180 from stack: in
-- bmap block id: 3679
-- flags: 4000
-- background id: 4582
-- name: labeler
----- HyperTalk script -----
on openCard
  put the date into field "date"
end openCard

on showemall
  show card picture
  show cd button "help"
  show cd button "print"
  show cd button "port to stack"
  show cd button "clear"
  show cd button "master"
  show cd button "prefs"
  show cd button "go calc"
  show cd button 13
  show cd button 14
end showemall



-- part 6 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=335 top=318 right=336 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 13
-- part name: clear
----- HyperTalk script -----
on mouseUp
  put empty into field "A1"
  put empty into field "B1"
  put empty into field "title"
  put empty into field "Atitle"
  put empty into field "Btitle"
  put empty into field "A2"
  put empty into field "B2"
  put empty into field "catalog number"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=7 top=302 right=334 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Power
----- HyperTalk script -----
on mouseUp
  doPower
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=279 top=290 right=308 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 13
-- part name: print
----- HyperTalk script -----
on mouseUp
  set the lockScreen to true
  show cd field "printrecover"
  hide card picture
  hide cd button "help"
  hide cd button "print"
  hide cd button "port to stack"
  hide cd button "clear"
  hide cd button "master"
  hide cd button "prefs"
  hide cd button "go calc"
  hide cd button 13
  hide cd button 14
  doMenu Print Card
  hide cd field "printrecover"
  showemall
  set the lockScreen to false
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=392 top=290 right=309 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 13
-- part name: go calc
----- HyperTalk script -----
on mouseUp
  go to first card
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=86 top=302 right=333 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CDswitch
----- HyperTalk script -----
on mouseUp
  go to any card of background "CD" of stack "AudioVideo Library"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=135 top=302 right=333 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LPswitch
----- HyperTalk script -----
on mouseUp
  go to any card of background "LP" of stack "AudioVideo Library"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=182 top=302 right=333 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TAPEswitch
----- HyperTalk script -----
on mouseUp
  go to any card of background "TAPE" of stack "AudioVideo Library"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=230 top=302 right=333 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: VIDEOswitch
----- HyperTalk script -----
on mouseUp
  go to any card of background "VIDEO" of stack "AudioVideo Library"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=394 top=318 right=336 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 13
-- part name: port to stack
----- HyperTalk script -----
on mouseUp
  answer "What is the format of the Titles area?" with "title only" or "artist / title" or "artist: title"
  if it is "title only" then
    put empty into Aartist
    put empty into Bartist
    if the visible of field "title" is true then
      put field "title" into Atitle
      put Atitle into Btitle
    else
      put bkgnd field "Atitle" into Atitle
      put bkgnd field "Btitle" into Btitle
    end if
  end if
  if it is "artist / title" then
    put bkgnd field "Atitle" into Aartist
    put Aartist into Bartist
    put bkgnd field "Btitle" into Atitle
    put Atitle into Btitle
  end if
  if it is "artist: title" then
    if the visible of field "title" is true then
      put length(field "title") into titlelength
      put offset(":",field"title") - 1 into artistend
      put artistend + 2 into titlestart
      put char 1 to artistend of field "title" into Aartist
      put Aartist into Bartist
      if char titlestart of field "title" is space
      then add 1 to titlestart
      put char titlestart to titlelength of field "title" into Atitle
      put Atitle into Btitle
    else
      put length(field "Atitle") into AtitleLength
      put length(field "Btitle") into BtitleLength
      put offset(":",field"Atitle") - 1 into Aartistend
      put Aartistend + 2 into Atitlestart
      put offset(":",field"Btitle") - 1 into Bartistend
      put Bartistend + 2 into Btitlestart
      put char 1 to Aartistend of field "Atitle" into Aartist
      if char Atitlestart of field "Atitle" is " "
      then add 1 to Atitlestart
      put char Atitlestart to AtitleLength of field "Atitle" into Atitle
      put char 1 to Bartistend of field "Btitle" into Bartist
      if char Btitlestart of field "Btitle" is " "
      then add 1 to Btitlestart
      put char Btitlestart to BtitleLength of field "Btitle" into Btitle
    end if
  end if

  put bkgnd field "A1" into A1side
  put bkgnd field "A2" into A2side
  put bkgnd field "B1" into B1side
  put bkgnd field "B2" into B2side
  put bkgnd field "noiseReduction" into noiseReduction
  put bkgnd field "tape brand" && "audio tape" into reclabel
  put bkgnd field "tape length" into tapelength
  put bkgnd field "catalog number" into catalog
  go to any card of background "TAPE" of stack "AudioVideo Library"
  click at location of bkgnd button "NewCard"
  push card
  put A1side & A2side into field "IA"
  put B1side & B2side into field "IB"
  put Atitle into field "title"
  put Btitle into field "IBtitle"
  put Aartist into field "artist"
  put Bartist into field "IBartist"
  put noiseReduction into field "noiseReduction"
  put reclabel into field "recording label"
  put tapelength into field "length"
  put catalog into field "catalog number"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=278 top=318 right=336 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 13
-- part name: help
----- HyperTalk script -----
on mouseUp
  doMenu Next
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=333 top=290 right=308 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 13
-- part name: master
----- HyperTalk script -----
on mouseUp
  go to first card of stack "AudioVideo Library"
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=450 top=290 right=308 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 13
-- part name: prefs
----- HyperTalk script -----
on mouseUp
  lock screen
  repeat forever
    answer "Set the Text Style of which fields?" with "Selections" or "Titles" or "Done"
    if it is "Done" then exit repeat
    if it is "Selections" then
      click at location of field "A1"
      doMenu "Text Style..."
      put textAlign of field "A1" into TA
      put textFont of field "A1" into TF
      put textSize of field "A1" into TSZ
      put textStyle of field "A1" into TST
      put textHeight of field "A1" into THT
      set textAlign of field "A2" to TA
      set textFont of field "A2" to TF
      set textSize of field "A2" to TSZ
      set textHeight of field "A2" to THT
      set textAlign of field "B1" to TA
      set textFont of field "B1" to TF
      set textSize of field "B1" to TSZ
      set textHeight of field "B1" to THT
      set textAlign of field "B2" to TA
      set textFont of field "B2" to TF
      set textSize of field "B2" to TSZ
      set textHeight of field "B2" to THT
      put ("set the textStyle of bkgnd fld 2 to " & TST)
      returnKey
      put ("set the textStyle of bkgnd fld 4 to " & TST)
      returnKey
      put ("set the textStyle of bkgnd fld 5 to " & TST)
      returnKey
      hide message
    end if
    if it is "Titles" then
      if the visible of field "title" is true then
        click at location of field "title"
        doMenu "Text Style..."
      else
        click at location of field "ATitle"
        doMenu "Text Style..."
        put textAlign of field "ATitle" into TA
        put textFont of field "ATitle" into TF
        put textHeight of field "ATitle" into TH
        put textSize of field "ATitle" into TSZ
        put textStyle of field "ATitle" into TST
        set textAlign of field "BTitle" to TA
        set textFont of field "BTitle" to TF
        set textHeight of field "BTitle" to TH
        set textSize of field "BTitle" to TSZ
        put ("set the textStyle of bkgnd fld 6 to " & TST)
        returnKey
        hide message
      end if
    end if
    unlock screen
    lock screen
  end repeat
  unlock screen
end mouseUp



-- part 21 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: printrecover
----- HyperTalk script -----
on mouseDown
  lock screen
  hide me
  showemall
  unlock screen
end mouseDown



-- part 22 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=320 top=76 right=98 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: single title field
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then
    set the hilite of me to true
    set the hilite of cd button 14 to false
    hide field "Atitle"
    hide field "Btitle"
    show field "title"
  end if
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=304 top=132 right=154 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: dual title fields
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then
    set the hilite of me to true
    set the hilite of cd button 13 to false
    hide field "title"
    show field "Atitle"
    show field "Btitle"
  end if
end mouseUp



-- part contents for background part 13
----- text -----
Maxell

-- part contents for background part 11
----- text -----
12/1/90

-- part contents for background part 10
----- text -----
Dolby C

-- part contents for background part 14
----- text -----
90 min

-- part contents for background part 5
----- text -----